home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / gfx / 3d / rayst020.lha / basic.lha / arexx / default.ray next >
Text File  |  1996-02-06  |  331b  |  24 lines
  1. /***************
  2.  * NAME:        ??
  3.  * DESCRIPTION: ??
  4.  ***************/
  5.  
  6. signal on error
  7.  
  8. options results
  9.  
  10. IF ~show('P','RAYSTORM') THEN DO
  11.     address COMMAND 'run >NIL: <NIL: /RayStorm'
  12.     address COMMAND WaitForPort RAYSTORM
  13. END  
  14.  
  15. address RAYSTORM
  16.  
  17. exit 0
  18.  
  19. error:
  20. say "Error" rc "in line" sigl ":"
  21. GETERRORSTR rc
  22. say result
  23. exit 0
  24.